BCI NET 2/BCI NET 2.iso/archives/applications/wp/cedpgp.lha/EncipherPGP.rexx

OS/2 REXX Batch file | 1980-01-06 | 4.9 KB | 211 lines

/********************************************************************/
/*                                                                  */
/* EncipherPGP.ced - ARexx macro for use with Cygnus Editor and PGP */
/*                                                                  */
/* Mark a block of text you want to be encrypted using PGP, then    */
/* run this macro to encrypt it wit someone's public key. It works  */
/* similar to builtin rot13 command. (Only MUCH slower).            */
/* This macro was tested to work with Cygnus Editor 2.0 to 3.5.     */
/*                                                                  */
/* This code is in Public Domain under GNU General Public License   */
/*                                                                  */
/* author: Janusz A. Urbanowicz <[e-mail]>           */
/*                                                                  */
/********************************************************************/

/*
 *                $VER: EncipherPGP.ced 1.2 (31.01.1994)
 */

Trace Off

Options Results

lf = '0A'X
tempfile = 'T:ced$pgp.tmp'
cmdline = ''
cmdn = '-ca'
cmdf = '<'||tempfile||' >'||tempfile||'.asc -fca'
pgpt = 0 /* pgp 'type' 0 = 2.3a, 1 = 2.3a.?, 2 = 2.6<ui> */
scrname = 'CygnusEdScreen'
scrnum = 1
portname = 'rexx_ced'
portnum = 0

cmd = ''
scratch = 0
ID = ''

status portnumber
portnum = result
if (portnum ~= 0)&(portnum ~== 'RESULT') Then
Do
    scrnum = scrnum + portnum
    portname = portname||portnum
End

scrname = scrname||scrnum

Call Close 'STDOUT'        /* Thanx for that goes to Rick Younie*/
Call Close 'STDIN'
Call Open 'STDOUT','CON:16/24/620/130/PGPAmiga Output/CLOSE/WAIT/SCREEN'||scrname
Call Pragma '*','STDOUT'
Call Open 'STDIN','*'

Call checkf
pgpt = result
If pgpt > 0 then cmd = cmdf
Else
Do
    cmd = cmdn
    cmdline = tempfile||' '
End

Address 'rexx_ced'
If pgpt = 1 Then /* is PGP26_IMPERSONATE option avaliable ? */
Do
    okay2 "Do you want the enciphered packet to be"||lf,
        "in PGP 2.6 format ?"
    If result = 1 Then
    Do
        okay1 "WARNING: Packet created with this"||lf,
        ||"option set cannot be processed"||lf,
        ||"using 'standard' PGP 2.3a."||lf||lf,
        ||"You SHOULD NOT use this option"
        okay2 "Are you sure you want to use"||lf,
            ||"this option ?"
        If result = 1 Then cmdline = cmdline||' +PGP26_IMPERSONATE=on'
    End
End
Else cmdline = cmdline||' +batchmode=on'

If cmd = cmdn Then Call ask

cmdline = cmd||' '||cmdline

cut block
If result = 1 Then Call encrypt
Else
Do
    okay2 "No area selected."||lf||"Encipher whole file ?"
    If result = 1 Then
    Do
        'beg of file'
        'mark block'
        'end of file'
        'cut block'
        Call encrypt
    End
End
Call quit

encrypt:
Do
    menu 0 6 0 tempfile /* save block to file */
    Address Command
    'PGP '||cmdline
    If ~Exists(tempfile||'.asc') Then Call wrongpass
    Else
    Do
/* We check if the output file length is 0 what happens if PGP was in -f mode and passphrase was wrong */
        If Open('outf',tempfile||'.asc','R') Then
        Do
            If Seek('outf',100,'Begin') = 0 Then
            Do
                If ~Close('outf') Then Nop
                Call wrongpass
            End
            Else
            Do
                Address 'rexx_ced'
                include file tempfile||'.asc'
                status 21
            End
        End
    End
End
Return

wrongpass:
Address 'rexx_ced'
undo
okay1 "Encryption error !"

quit:
Address Command
If Exists(tempfile||'.info') Then 'Delete '||tempfile||'.info QUIET'
If Exists(tempfile||'.asc') Then 'Delete '||tempfile||'.asc QUIET'
If Exists(tempfile) Then 'Delete '||tempfile||' QUIET'
If scratch == 1 Then 'Delete env:PGPPASS QUIET'
If ~Close('STDOUT') Then Nop
Exit 0

ask: Procedure Expose scratch lf
Address Command
'GetEnv >NIL: PGPPASS'
If rc ~= 0 Then
Do
    Address 'rexx_ced'
    okay2 "Your passphrase is not set in PGPPASS variable."||lf||,
    "It must be set temporarily for running PGP".||lf||,
    "Should it be deleted (for higher security) after use ??"
    If result = 1 then scratch = 1
    else scratch = 0
    okay1 'WARNING: Your passphrase will be visible when you type it in.'
    getstring "'  '  'Please enter passphrase.'"
    pgppass = result
    pgppass = Strip(pgppass,'T')
    Address Command
    'SetEnv PGPPASS '||'"'||pgppass||'"'
End
Return

checkf: Procedure
Address Command
Call getpath
path = result
If path = "" Then Return 0
Else
Do
    'Version >PIPE:PGPVERSION '||path
    If Open('pvers','PIPE:PGPVERSION','R') Then
    Do
        verstring = ReadLN('pvers')
        If Close('pvers') Then Nop
    End
    Parse Var verstring . version
    Select
        When version = '2.6ui' Then Return 2
        When version = '2.3a.5' Then Return 1
        When version = '2.3a.4' Then Return 1
        When version = '2.3a.3' Then Return 1
        Otherwise Return 0
    End
End

getpath: procedure
'Which >PIPE:PGPPATH PGP'
If rc = 0 Then
Do
    If Open('ppath','PIPE:PGPPATH','R') Then
    Do
        path = ReadLN('ppath')
        If ~Close('ppath') Then Nop
        Return path
    End
End
Else
Do
    'GetEnv >PIPE:PGPPATH PGPPATH'
    If rc = 0 Then
    Do
        If Open('ppath','PIPE:PGPPATH','R') Then
        Do
            path = ReadLN('ppath')
            If ~Close('ppath') Then Nop
            path = path||'/PGP'
            Return path
        End
        Else Return ""
    End